Program test;
var
	a,y : integer;
	procedure f;
	var b : integer;
	begin
		b:=7;
	end;
	procedure g;
	var c: integer;
	begin
		c:=7;
	end;
	procedure m;
	var n: integer;
		procedure j;
		var t : integer;
		begin
			t:=4;
		end;
	begin
		n:=7;
	end;
Begin
    a:=3;
End.
